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SECTION  1 

IEEE-488  REFERENCE  PAPER 


INTRODUCTION  TO  THE  IEEE-488 

Laboratory  researchers  have  shown  great  increases  in  productivity  by  utilizing  automation. 

As  the  potmtial  for  automated  systems  became  apparent,  it  was  clear  that  a  standard  communications 
interface  was  necessary.  Problems  were  occurring  because  the  interfacing  capabilities  would  vary 
between  manufacturers.  This  made  most  automated  systems  very  customized  and  non-portable. 
Hewlett-Packard  helped  industry  overcome  this  problem  by  developing  the  Hewlett-Packard  Interface 
Bus  (HPIB)  in  the  early  1970’s.  This  interface  bus  was  widely  us^  throughout  industry,  and  in 
1975  became  standardized  by  the  Institute  of  Electrical  and  Electronic  Engineers  under  Standard 
IEEE-488.  In  1978  the  standard  was  updated  with  minor  revisions.  The  General  Purpose  Interface 
Bus  (GPIB),  the  ANSI  MCI.  1-1975,  and  the  HPIB  are  synonymous  with  the  IEEE-488.  In  this 
paper,  IEEE-488  is  used  to  refer  to  the  standard,  and  the  rules  and  syntax  of  communication.  GPIB 
is  used  to  refer  to  the  physical  bus  or  physical  devices.  The  European  standards  IEC-625. 1  and 
B.S.6146  are  very  similar  to  the  IEEE-488,  the  major  difference  teing  the  type  of  connector. 

The  IEEE-488  communications  protocol  has  some  distinct  advantages,  and  disadvantages, 
over  more  common  forms  of  input/output  (I/O)  communications  such  as  serial  and  parallel  ports. 

The  major  difference  is  that  the  GPIB  is  a  bus,  rather  than  a  port.  The  bus  protocol  allows  for  the 
connection  of  up  to  fifteen  devices,  each  individually  or  group  addressable.  It  also  allows  for  a 
device  other  than  a  specific  computer  to  be  the  active  controller,  and  any  device  can  be  set  as  a 
talker,  listener,  or  idle.  In  contrast,  there  are  typically  only  two  or  three  serial  and  parallel  ports  in 
a  PC  or  workstation.  Although  there  are  devices  available  which  will  allow  a  greater  number  of 
serial  and  parallel  devices  to  be  attached  to  one  computer,  this  is  usually  expensive  and  inefficient. 
Because  the  GPIB  is  speciflcally  made  for  instrumentation  I/O,  it  has  been  a  very  popular 
alternative.  Most  laboratory  equipment  and  instrumentation,  and  many  computer  peripherals,  such 
as  pen  plotters,  have  a  GPIB  connection  along  with  a  serial  or  parallel  port. 

The  GPIB  board,  however,  must  be  programmed  for  the  specific  device  which  it  will  control. 
In  most  cases,  drivers  have  to  be  built  partially  in  a  low  level  language  to  provide  routines  to 
communicate  with  the  bus  and  to  control  the  device.  Many  GPIB  boards  and  devices  have  available 
drivers  to  add  to  existing  code.  These  drivers  often  do  not  fit  the  user’s  requirements  or  are  very 
difficult  to  interface  with  existing  code  because  of  language  incompatibility  problems.  Many  of  the 
included  drivers  are  written  in  BASIC  programming  language.  The  slow  spWd  at  which  BASIC 
programs  execute  make  these  drivers  inappropriate  for  many  real-time  applications. 


HARDWARE  INSTALLATION 

The  GPIB  interface  board  used  for  this  project  was  the  Keithley  MetraByte  IE-488  General 
Interface  I/O  expansion  board.  It  is  designed  to  plug  into  an  open  slot  inside  a  PC  compatible 
computer.  It  fully  complies  with  the  IEEE-488  1978  standard. 

The  IE-488  board  requires  a  free  16  kilobyte  block  of  ad2q>ter  memory  to  load  a  relocatable 
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12  kilobyte  ROM  interpreter  and  4  kilobyte  static  RAM.  The  interpreter  is  a  block  of  code  that 
handles  the  initialization  and  protocol  functions  required  to  use  the  bus.  The  interpreter  accepts  all 
string  coded  commands  and  secondary  commands  in  conventional  high-level  IEEE-488  command 
syntax,  which  will  be  discussed  later.  The  interpreter  must  reside  in  a  free  portion  of  the  PC’s 
a^pter  memory.  The  memory  address  is  selected  by  setting  the  appropriate  D.I.P.  switch  on  the 
GPIB  board,  llie  user  must  make  sure  that  the  set  address  does  not  conflict  with  any  other  devices 
connected  to  the  computer.  Figure  1  illustrates  the  hardware  configuration  of  the  Keithley  Metrabyte 
IE-488  GPIB  board. 

Once  an  IEEE-488  command  is  sent  to  the  ROM  interpreter,  the  interpreter  sends  the 
necessary  data  out  onto  the  GPIB  through  the  I/O  port  address.  This  address  must  also  be  set  on  the 
board  via  a  D.I.P.  switch.  This  address  performs  the  same  function  as  the  more  common  parallel 
and  serial  port  addresses.  The  IE-488  Manual  suggests  selecting  the  base  address  at  H3(X)  or  H310, 
although  any  other  valid,  non-conflicting  address  will  work. 


Figure  1.  Hardware  Diagram  of  Keithley  Metrabyte  IE-488  Board. 
(Courtesy  of  Keithley  Metrabyte) 


If  direct  memory  access  (DMA)  is  going  to  be  used,  an  appropriate  interrupt  and  DMA 
channel  must  be  specified  by  D.I.P.  switches  on  the  board.  Care  must  also  be  taken  with  these  to 
ensure  that  there  are  no  conflicts  with  the  operating  system  or  another  peripheral  board. 

The  computer’s  technical  reference  manual  should  be  consulted  if  there  are  any  questions 
concerning  the  above  parameter  settings.  The  GPIB  board  manual  will  also  assist  in  the  setting  of 
the  appropriate  parameters.  The  settings  for  the  bcse  address,  memory  address,  interrupt  vectors, 
and  DMA  channel  should  be  noted  so  that  the  proper  parameters  can  be  set  in  the  header  file  for  the 
GPIB  module.  Although  the  discussion  above  pertained  to  the  Keithley  Metrabyte  IE-488  GPIB 
board,  a  similar  hardware  setup  is  required  for  most  other  GPIB  boards. 
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CONNECTING  DEVICES  USING  THE  GPIB 


Devices  may  be  connected  to  the  GPIB  in  a  linear  configuration,  a  star  configuration,  or  a 
combination  of  both.  In  a  linear  connection,  the  GPIB  cable  is  connected  from  one  device  to  the 
next,  in  a  serial  fashion  (Figure  2).  In  a  star  configuration  one  end  of  all  the  GPIB  connections  are 
connected  to  one  device  (Figure  3).  Each  device  is  connected  to  the  bus  with  either  a  GPIB  or  lEC- 
625-1  cable.  The  GPIB  cable  has  a  24  pin  connector.  This  connector  is  designed  so  that  multiple 
cables  can  be  connected  "piggy-back"  style.  The  pin  diagram  for  this  connector  is  shown  in 
Appendix  A. 


Figure  2.  GPIB  Linear  Configuration. 


Figure  3.  GPIB  Star  Configuration. 


Devices  that  are  interfaced  to  the  GPIB  can  be  classified  into  three  categories; 
1 .  Listeners  -  A  listener  is  a  device  that  receives  commands  and  data  via  the  bus. 


2.  Talkers  -  A  talker  is  a  device  that  sends  data  via  the  bus,  to  another  device  that  is 
designated  by  the  controller  as  a  listener.  Only  one  device  on  the  bus  is  allowed  to  talk 
at  any  given  time. 


3 


3.  Controllers  -  The  controller  is  a  device  that  manages  the  interface  bus  by  controlling  the 
flow  of  commands  and  data  to  and  ftom  the  other  devices  connected  to  the  bus.  Thus, 
the  controller  is  both  a  listener  and  a  talker.  Only  one  active  controller  is  allowed  at 
any  given  time. 

Many  devices  are  designated  as  both  talkers  and  listeners.  For  example,  if  only  part  of  a 
waveform  is  of  interest,  the  oscilloscope  will  first  behave  as  a  listener  to  receive  the  setup 
parameters  for  the  window  size.  The  scope  will  then  become  a  talker  as  it  passes  the  digitized  signal 
to  the  controller. 

The  IEEE-488  specifications  allow  up  to  15  devices  to  be  connected  to  the  bus,  including  the 
controller.  Because  of  capacitive  and  inductive  restrictions,  the  total  length  of  the  network  should 
not  exceed  20  meters.  If  a  longer  network  is  needed,  an  GPIB  extender  may  be  used.  It  is 
recommended  that  a  device  be  connected  for  every  2  meters  of  cable,  and  that  two-thirds  of  the 
devices  be  powered  on.  Appendix  B  lists  some  GPIB  peripherals  which  may  enhance  the 
performance  of  an  automat^  instrument  system. 

Each  device  connected  to  the  bus  must  have  a  unique  primary  address.  Many  devices  have  a 
factory  default  address  ranging  from  0  to  30.  However,  this  address  can  usually  be  changed  by  the 
user  in  different  ways,  depending  upon  the  specific  equipment  in  use.  Some  devices  have  switches 
or  jumpers  on  the  device  which  can  be  changed  manually,  while  others  may  be  changed  from  the 
instrument  panel.  Some  devices  will  also  have  a  secondary  address,  ranging  from  96  -  126.  This 
address  will  be  used  to  control  a  specific  function  of  that  device.  The  secondary  address  is  usually 
preset  at  the  factory.  It  does  not  have  to  be  unique,  since  the  primary  address  must  first  be 
accessed.  Not  all  devices  support  secondary  addressing. 


IEEE-488  INTERFACE  COMMANDS 

The  commands  that  are  interpreted  by  the  GPIB  board  can  be  classified  into  two  categories; 
universal  commands  and  addressed  commands.  Below  is  a  detailed  description  of  each: 

I.  UNIVERSAL  COMMANDS  -  A  universal  command  will  affect  all  of  the  devices  that  are 
connected,  as  long  as  they  are  capable  of  interpreting  the  command.  There  are  five  universal 
commands  supported: 

1.  Serial  Poll  Enable  (SPE)  -  Enables  serial  poll  mode  for  all  devices  on  the  bus. 

2.  Serial  Poll  Disable  (SPD)  -  Disables  serial  poll  mode  for  all  devices  on  the  bus. 

3.  Parallel  Poll  Unconfigure  (PPU)  -  All  devices  on  the  bus  will  be  reset  so  that  they  are  in 
an  idle  state.  They  will  not  be  able  to  respond  to  a  parallel  poll. 

4.  Local  Lockout  (LLO)  -  Disables  the  front  panel  control  for  all  devices  on  the  bus. 

5.  Device  Clear  (DCL)  -  All  devices  on  the  bus  will  return  to  a  predefined  state.  This 
predefined  state  is  defined  by  the  device. 
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II.  ADDRESSED  COMMANDS  -  An  addressed  cc-nmand  will  affect  only  those  devices  which  are 
addressed  (designated  as  listeners).  The  controller  selects  which  devices  will  receive  the 
command.  There  are  seven  addressed  commands  supported: 

1.  Take  Control  (TCT)  -  The  active  controller  will  transfer  bus  control  to  the  addressed 
device. 

2.  Parallel  Poll  Configure  (PPC)  -  The  addressed  devices  will  be  configured  to  respond  to  a 
parallel  poll.  This  is  done  by  assigning  the  8  DIO  lines  of  the  bus  for  this  purpose. 

3.  Select  Device  Clear  (SDC)  -  The  addressed  devices  will  be  reset  to  their  predefined  states. 
This  predefined  state  is  determined  in  the  factory. 

4.  Go  To  Local  (GTL)  -  The  addressed  devices  will  return  ‘o  local  control  (they  will  be 
controlled  by  front  panel  operation). 

5.  Group  Execute  Trigger  (GET)  -  The  addressed  devices  will  execute  a  pre-programmed 
action.  This  enables  all  of  the  selected  devices  on  the  bus  to  be  triggered  simultaneously. 

6.  UNTalk  (UNT)  -  The  current  talker  will  be  unaddressed.  This  command  may  not  be 
necessary  because  when  another  device  is  designated  as  a  talker,  the  previous  talker  is 
automatically  unaddressed. 

7.  UNListen  (UNL)  -  The  bus  is  cleared  of  all  listeners. 

The  Keithley  Metrabyte  IE-488  interpreter  is  capable  of  implementing  all  twelve  of  these 
commands.  These  commands,  referred  to  as  messages,  are  shown  in  Appendix  D. 


PROGRAMMING  THE  GPIB  BOARD 

The  IEEE-488  standard  does  not  mandate  any  particular  programming  language  to  be  used 
with  the  GPIB  board.  However,  there  are  certain  formats  that  need  to  be  followed.  When 
establishing  communication  with  the  GPIB  board,  the  following  call  statement  is  used: 

CALL  Junc(command,  variable,  flag,  basadr) 


where: 


fimc  is  the  name  of  the  function  that  is  to  be  called. 

command  is  the  string  command  that  will  determine  what  action  the  board  will  perform.  This 
parameter  will  be  decoded  by  the  ROM  interpreter  on  the  GPIB  board. 

The  command  must  be  sent  to  the  board  as  a  STRING  in  the  following  format: 

"cmd  dev  1. sec,  dev2.sec,  ...,  devn.secfimagej’ 
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where: 


and  is  the  IEEE-488  command  being  sent. 
devn  is  a  user  selectable  device  number. 
sec  is  the  devices  secondary  address  (optional). 

[image]  is  the  image  specifier  or  terminator  (optional).  The  specifier  is  the  variable 
field  to  which  the  acquired  data  is  stored.  The  terminator  dlows  the  user  to  pick 
the  type  of  string  termination  (EOI,  carriage  return,  line  feed,  etc.).  Details  of 
these  can  be  found  in  the  GPIB  board  manual.  The  instrument  driver  described  in 
this  paper  solely  uses  the  f$]  image  specifier.  This  image  specifier  inputs  the 
acquit^  data  as  a  character  string  in  memory.  This  allows  for  the  maximum 
versatility  and  ease  of  programming  since  the  character  string  can  be  easily 
transformed  into  an  integer  or  float  array  if  necessary.  The  included  drivers  use  the 
default  terminator:  EOI. 


variable  is  the  command  that  is  input  to  or  output  from  the  device.  Data  is  transferred  as 
specified  by  the  image  specifier  and  terminator.  The  format  of  this  command  is  dependent 
upon  the  individual  device.  Consult  the  device’s  instruction  manual  for  syntax 
requirements. 

flag  is  a  parameter  that  is  used  to  report  the  status  of  an  operation.  If  an  error  has  occurred, 
this  parameter  will  be  set  to  the  appropriate  error  number.  The  Keithley  Metrabyte 
IE-488’ s  error  handling  mechanism  will  identify  23  distinct  types  of  messages  grouped  into 
three  categories:  data  transfer,  hardware,  and  format.  The  flag  return  codes  for  the  IE-488 
board  are  shown  in  Appendix  C. 

basadr  is  a  variable  that  contains  the  address  of  the  ROM  interpreter. 


Before  sending  any  commands  to  a  device,  the  GPIB  board  must  be  initialized.  This  is  done 
by  sending  the  appropriate  command  parameter  to  the  GPIB  board  using  the  calling  procedure 
discussed  above.  For  example,  when  using  the  Keithley  Metrabyte  IE-488  the  COMMAND  string 
is: 

"SYSCON  MAD  =  dev.  CIC  =  {0/112/3),  NOB  =  (1/2),  BAO=&Hdddd  (BAl  =&Hdddd)'' 
where: 

MAD  is  the  PC  device  address. 

dev  is  the  address  of  the  device  (0  -  30). 

CIC  is  the  controller  in  charge,  0=none,  l=board  #1,  2=board  #2. 

NOB  is  the  number  of  boards  (1  or  2). 

BAO  is  the  base  address  for  board  #1. 

BAl  is  the  base  address  for  board  HI. 
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The  data  string  contained  in  variable  is  irrelevant  when  sending  this  command  because  no 
communication  is  being  made  with  a  device.  For  correct  compilation  of  the  code,  however,  a 
pointer  to  type  string  must  be  passed  in  the  parameter  list.  After  receiving  this  command,  the  board 
will  be  ready  to  accept  further  instructions. 
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SECTION  2 

INSTRUMENT  DRIVER  INSTRUCTION  MANUAL 


GENERAL  INFORMATION 

The  instrument  driver  code  was  written  in  Borland  C++,  Version  2.0.  It  is  intended  for  a 
PC  compatible  386  or  486  computer  running  MS-DOS  3.30  or  higher,  with  at  least  one  m^abyte  of 
memory,  although  it  may  run  on  other  configurations.  The  software  was  modularly  written  and 
contains  descriptive  function  names  and  comments  describing  the  use  of  each  function.  There  were 
two  main  modules  coded:  a  GPIB  module  and  a  Tektronix  module.  The  GPIB  module  contains  the 
necessary  functions  to  utilize  the  GPIB  board  with  any  device.  It  is  in  no  way  dependent  upon  any 
functions  in  the  Tektronix  module.  The  Tektronix  module  is  designed  to  be  layei^  on  top  of  the 
GPIB  module  (see  Figure  4).  It  accesses  GPIB  functions.  To  provide  communication  csqiabilities 
with  additional  devices,  modules  can  be  written  similar  to  the  Tektronix  module.  A  small  display 
module  is  provided  to  demonstrate  the  correct  operation  of  the  GPIB  and  Tektronix  modules. 


Figure  4.  Layered  Design  of  Driver  Code. 


To  utilize  these  drivers,  the  user  must  include  gpib.h  and  tek2430A.h  in  the  program,  compile 
gpib.cpp  and  tek2430A.cpp,  assemble  callgpib.asm  and  link  all  object  files  with  the  client  code  to 
produce  an  executable  file.  The  user’s  code  in  the  main  program  will  then  have  access  to  all  the 
GPIB  and  Tektronix  functions  described  below.  The  display  module,  display.cpp  and  test  program, 
gpibmain.cpp  are  included  to  demonstrate  how  the  user  can  write  code  to  access  the  functions 
provided  by  these  drivers.  The  test  program  initializes  the  GPIB  board  and  oscilloscope,  sets  the 
appropriate  parameters  on  the  oscilloscope,  sends  several  queries  to  the  oscilloscope,  and  then 
acquires  and  graphically  displays  the  signal  data. 
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Before  compiling  and  linking  the  code,  the  user  should  set  the  default  parameters  for  the 
board  and  the  device.  In  the  beginning  of  gpib.h,  the  user  must  define  the  interrupt  request,  DMA 
channel,  PC  device  address,  controller  in  charge,  number  of  boards,  I/O  addresses,  and  ROM 
interpreter  memory  address  of  the  GPIB  board.  In  addition,  the  user  must  specify  the  length  of  the 
character  array  which  will  hold  the  commands  to  the  GPIB  board  and  the  device.  Below  are  the 
default  settings  of  these  parameters.  The  user  should  make  any  necessary  changes: 

Mdefine  DEF  IREQ  2 
Mefine  DEF  DMA  3 
Mefine  DEF~ MAD  3 
Mefine  DEF  CIC  1 
^define  DEF~_NOB  1 
Mefine  DEF  BAO  300 
Mefine  DEF~_BA1  0 

Mefine  DEF  ROM_ADDR  MK_FP(QxC800.0000) 

Mefine  IOJTR_LEN  80 

In  the  Tektronix  module  the  user  must  define  the  maximum  number  of  points  which  can  be 
acquired  from  the  oscilloscope,  and  the  device  address  of  the  oscilloscope.  As  with  any  GPIB 
device  connected  to  the  bus,  the  user  must  select  a  unique  device  number  from  the  control  panel  of 
the  oscilloscope.  The  default  setting  for  this  software  is: 

Mefine  MAX  FTS  1024 
Mefine  DEFZgPIB_ADDR  15 


GPIB  MODULE 

The  GPIB  module  consists  of  the  assembly  language  routine,  callgpib.asm,  along  with  the 
header  file  gpib.h  and  the  implementation  file  gpib.cpp.  The  actual  communication  to  the  IEEE-488 
interpreter  is  done  through  callgpib.asm.  The  addresses  of  the  outgoing  GPIB  command  structure, 
the  device  incoming/outgoing  data  structure,  and  the  IEEE-488  ROM  interpreter  are  parameters  for 
this  routine.  This  routine  arranges  these  pointers  along  with  an  error  flag  pointer  on  the  stack  as 
illustrated  in  Figure  5. 

It  should  also  be  noted  that  the  command  and  data  structure  for  the  IEEE-488  interpreter  have 
the  following  format: 

class  gpibjlat 

{ 

char  length; 
char  Mat  j>tr; 

H  member  junctions 

}: 
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GPIB  Command  Structure  Pointer 


4 

4  Device  Data  Structure  Pointer 

<  Return  Error  Flag  Pointer 

^  Interpreter  Base  Address  Pointer 

Figure  5.  Lx)cation  of  Variables  on  the  Stack. 


This  means  that  the  command  and  data  pointers  on  the  stack  will  point  to  the  length  of  the  string. 
Directly  following  the  length  will  be  a  pointer  to  the  actual  string  somewhere  else  in  memory.  The 
form  of  the  callgpib  routine  is  as  follows: 

unsigned  int  flag  =  callgpib(gpib_cmd,  dev_cmdjiat,  DEFJ(OM_ADDR); 

where  gpib_cmd  is  the  command  being  sent  to  the  GPIB  board,  and  dev_cmdjUu  is  the  command 
being  sent  to  the  device  or  data  coming  from  the  device.  Both  are  of  class  gpibjlat. 
DEF_ROM_ADDR  is  the  address  of  the  IEEE-488  ROM  interpreter.  The  C++  code  incorporates 
constructors  and  destructors  for  class  gpibjlat  which  dynamically  allocates  space  for  the  data  string. 

Another  class,  class  gpib,  has  the  functions  necessary  for  operation  of  the  GPIB  board.  This 
class  must  be  initialized  with  the  appropriate  parameters.  If  the  default  parameters  accurately  reflect 
the  system  configuration,  these  can  be  passed  to  the  constructor  as  parameters.  The  main  program 
illustrates  the  manner  in  which  this  is  performed.  The  default  parameters  can  also  be  over-ridden 
with  subsequent  calls  to  the  gpib  constructor  by  passing  new  v^ues  as  parameters. 

The  following  is  a  description  of  the  service  functions  available  once  the  GPIB  module  has 
been  included  in  the  user’s  code.  Data  access  and  modification  methods  are  available  but  are  not 
(tescribed  because  they  are  beyond  the  scope  of  this  manual. 

gpibfint  ireqjn,  int  dmajn,  int  madjn,  int  cicjn,  int  nobjn,  unsigned  int  baOJn,  unsigned  int 
baljn,  void  far  *r(mjaddrjn)  -  This  is  the  initializer  for  class  gpib.  The  parameters  represent 
the  status  of  the  user’s  system. 

void  get jyaramsfint  &ireqj)ut,  int  Admajout,  int  &madj)ut.  int  Acicjout,  int  dinob j)ut,  unsigned 
int  AbaOjnu,  unsigned  iru  dibalj)ut,  void  far*  diromjuldrjaut)  -  This  function  returns  the  data 
members  in  the  class  gpib. 
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gpib  <kcopy(const  gpib  <igpibjn)  -  This  function  copies  one  gpib  class  to  another.  Both  classes 
must  be  already  created  with  the  gpib  constructor.  The  operator  =  is  also  overloaded  to  provide 
the  same  service. 

unsigned  int  init _gpib()  -  This  function  initializes  the  GPIB  board  for  use  and  returns  the  error  code. 

unsigned  int  gpib_command(const  char  *gpib_and)  -  This  function  sends  gpib_and  to  the  GPIB 
board  and  returns  the  error  code. 

unsigned  int  device_command(const  char  *dev_cmd,  const  int  devjaddr)  -  This  function  sends 
devjcmd  to  the  device  with  device  address  devjiddr  and  returns  the  error  code. 

unsigned  int  device jiuery (const  int  ten,  char  *dev_dat,  const  int  devjiddr)  -  This  function  fills  the 
empty  string  devjiat  of  size  len  with  data  already  waiting  for  it  from  device  with  address 
devjaddr.  It  returns  the  error  code. 

int  error_handler(const  unsigned  int  flag,  const  gpibjiat  dilast  j^nd)  -  This  function  is  usually  called 
directly  after  callgpib(...)  is  called.  When  an  error  occurs,  this  function  outputs  an  error 
description  along  with  advice  on  how  to  correct  the  problem.  The  parameters  are  the  flag  which 
callgpib(...)  returned  and  the  last  command,  lastjcmd,  sent  to  the  GPIB  board.  It  returns  1  if  the 
program  should  terminate  and  0  if  the  program  should  continue  to  execute.  The  user  is 
encouraged  to  change  or  add  to  the  advice  in  this  module  as  new  solutions  to  errors  are 
discovered. 

The  following  functions  are  not  necessary  but  are  provided  for  the  convenience  of  the  user. 
They  can  all  be  implemented  through  the  gpibj:ommand(char  *gpibjmi)  function.  For  example, 
to  send  the  IEEE-488  command  "CLEAR  10,15",  which  will  reset  devices  10  and  IS,  either  of  the 
two  methods  can  be  used  in  client  code  to  obtain  the  same  result: 

unsigned  int  flag  =  gpib _command(" CLEAR  10,15");  or 
unsigned  int  flag  =  clear("  10,15"); 

Similarly,  each  of  the  following  functions  can  be  implemented  by  one  of  the  above  two  ways.  For 
clarity,  each  of  the  function  names  are  identical  to  their  Keithley  Metrabyte  IE-488  command 
syntax  except  for  abrt().  Abort  is  a  reserved  word  so  it  could  not  be  us^.  A  more  detailed 
description  of  the  following  IE-488  commands  can  be  found  in  the  Keithley  Metrabyte  IE-488  GPIB 
board  manual. 

unsigned  int  abrt()  -  This  function  aborts  current  command  and  returns  the  error  code. 

unsigned  int  clear(const  char  ^devices)  -  This  function  clears  the  selected  devices  and  returns  the 
error  code. 

unsigned  int  conflg(const  char  *options)  -  This  function  configures  the  GPIB  board  to  the  selected 
options  and  returns  the  error  code. 
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unsigned  int  enter(const  char  *device)  -  This  function  inputs  data  from  the  selected  device  into  a  data 
string  and  returns  the  error  code. 

unsigned  int  eoi  (const  char  *device)  -  This  function  sends  a  data  byte  on  the  selected  device  with 
EOI  asserted  and  returns  the  error  code. 

unsigned  int  locaifconst  char  ^devices)  -  This  function  sets  the  selected  devices  to  local  mode  and 
returns  the  error  code. 

unsigned  int  lockout(const  char  *dewces)  -  This  function  sets  the  selected  device  to  local  lockout  and 
returns  the  error  code. 

unsigned  int  output(const  char  *devices)  -  This  function  outputs  a  string  to  the  selected  devices  and 
returns  the  error  code. 

unsigned  int  parpolO  -  This  function  reads  the  status  bit  message  for  parallel  poll  devices  and  returns 
the  error  c^e. 

unsigned  int  pasctl(const  char  *device)  -  This  function  passes  control  to  the  selected  device  and 
returns  the  error  code. 

unsigned  int  ppcoitf(const  char  *device)  -  This  function  sets  up  a  parallel  poll  for  the  selected  device 
and  returns  the  error  code. 

unsigned  int  ppumf (const  char  ^device)  -  This  function  resets  the  parallel  poll  of  the  selected  device 
and  returns  the  error  code. 

unsigned  int  remote(const  char  *devices)  -  This  function  sets  the  selected  devices  into  remote  mode 
and  returns  the  error  code. 

unsigned  int  request(const  char  *device)  -  This  function  requests  service  from  active  controller  device 
and  returns  the  error  code. 

unsigned  int  rxctl()  -  This  function  returns  control  of  the  bus  to  the  PC  and  returns  the  error  code. 

unsigned  int  status(const  char  *device)  -  This  function  reads  a  serial  polled  device  status  byte  and 
returns  the  error  code. 

unsigned  int  syscon(const  char  ^parameters)  -  This  function  sets  up  the  system  configuration  and 
initialization  of  the  GPIB  board  according  to  parameters  and  returns  the  error  code. 

unsigned  int  trigger(const  char  *devices)  -  This  function  sends  a  trigger  message  to  the  selected 
devices  and  returns  the  error  code. 
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TEKTRONIX  MODULE 


The  Tektronix  module  was  written  to  allow  the  user  to  control  the  Tektronix  2430A  Digital 
Oscilloscope  through  the  GPIB.  There  are  only  a  few  functions  needed  for  this  module.  All  string 
commands  or  queries  may  be  sent  through  these  functions.  Other  device  modules  can  be  coded 
using  this  as  an  example  of  how  to  interface  with  the  GPIB  module.  All  device  commands  and 
queries  are  passed  through  tek_command(...)  and  tekj]uery(...).  All  the  available  functions  are 
explained  below: 

tek2430A(const  gpib  Aboard Jn,  const  int  gpibjtddrjn)  -  This  is  the  initializer  for  class  tek2430A. 
The  parameters  represent  the  initialized  gpib  board  and  the  device’s  address. 

unsigned  int  init_2430()  -  This  function  initializes  the  Tektronix  oscilloscope  for  use  and  returns  the 
error  code. 

unsigned  int  tek_command(const  char  *cmd)  -  This  function  sends  the  specified  Tektronix  command 
to  the  oscilloscope  and  returns  the  error  code. 

char  *sjek_query(const  char  *query)  -  This  function  sends  the  specified  Tektronix  query  to  the 
oscilloscope  and  returns  the  data  in  string  format. 

float  fjekjjuery (const  char  *query)  -  This  function  sends  the  specified  Tektronix  query  to  the 
oscilloscope  and  returns  the  data  in  floating  point  format. 

int  ijekjiuery  (const  char  *query)  -  This  function  sends  the  specified  Tektronix  query  to  the 
oscilloscope  and  returns  the  data  in  integer  format. 

unsigned  int  capture jcurve (const  int  num jjts,  int  *curve_out,  const  int  i_channel)  -  This  function 
sends  the  curve  query  to  the  oscilloscope  and  stores  the  data  from  the  specified  channel  into  the 
specified  integer  array,  curvejout  of  size  num j)ts.  It  returns  the  error  code. 

float  tek_sample_rate()  -  This  function  returns  the  time  between  successive  data  points  on  the 
oscilloscope  screen. 

void  convert  JO _volts  (const  int  num j)ts,  float  *f_curve,  const  int  *i_curve)  -  This  function  converts 
the  integer  curve  array  ijurve  into  voltages  and  stores  it  in  the  float  array  fjcurve.  The  float 
curve  must  be  of  size  num  j?ts. 


DISPLAY  MODULE  AND  TEST  PROGRAM 

A  portion  of  a  display  module  is  provided  to  enhance  demonstration  of  the  instrument 
drivers.  The  header  file  display. h  should  be  included  in  the  program  and  display. cpp  should  be 
compiled  and  linked  with  the  client  code.  This  module  contains  the  following  function: 
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int  display _curve(const  int  num  _pts,  const  float  *dat,  const  float  YjiMP)  -  This  function  causes  the 
curve  dot  of  num  jjts  to  be  displayed  with  a  data  amplification  of  Y_AMP.  It  returns  0  if  executed 
properly  and  1  if  not. 


The  test  program  gpibmain,cpp  initializes  the  GPIB  board,  the  Tektronix  oscilloscope, 
performs  several  operations,  acquires  a  curve,  and  graphically  displays  it.  This  program  illustrates 
the  procedure  for  utilizing  the  modules  correctly. 

CONCLUSION 

It  has  proven  extremely  beneficial  to  utilize  the  GPIB  when  interfacing  laboratory 
instrumentation.  The  GPIB  extends  capabilities  over  what  is  normally  available  with  serial  and 
parallel  ports.  It  provides  a  mechanism  for  both  instrumentation  control  and  data  acquisition.  Most 
laboratory  equipment  provides  GPIB  support  or  an  option  to  add  it. 

The  instrument  drivers  discussed  in  this  paper  were  modularly  written  in  a  layered  fashion  to 
maximize  portability  and  ease  of  understanding.  Other  modules  can  be  plugged  in  to  this  software  to 
expand  its  use  to  other  GPIB  devices.  As  is,  this  driver  can  be  used  to  acquire  data  from  the 
Tektronix  2430A  digitizing  oscilloscope.  The  data  can  be  derived  from  any  number  of  sources,  such 
as  ultrasonic  transducer  data,  electronic  sensor  output,  analog/digital  circuit  output,  etc.  These 
modules  can  be  linked  with  other  C  or  C  +  +  code. 

The  instrument  drivers  worked  very  well  with  the  test  program.  The  oscilloscope  was  given 
its  workout,  the  curve  displayed  on  the  oscilloscope  was  acquired  by  the  computer  into  an  array,  and 
the  graphics  screen  displayed  the  same  curve  shown  on  the  oscilloscope.  The  source  code  for  all  the 
modules  are  included  in  Appendix  E.  Figure  6  shows  a  curve  as  it  is  displayed  on  the  oscilloscope, 
and  Figure  7  shows  the  same  curve  acquired  through  the  GPIB  and  displayed  on  the  computer  with 
the  display  module.  Figure  8  shows  a  block  diagram  of  the  hardware  setup  of  this  test  and  Figure  9 
shows  a  photograph  of  the  entire  system. 
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Figure  6.  Curve  Displayed  on  Oscilloscope. 


Figure  7.  Curve  Displayed  on  Computer  Graphics  Screen. 
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Figure  8.  Block  Diagram  of  Hardware  Setup. 


Figure  9.  Photograph  of  Hardware  Setup. 


APPENDIX  A 


IEEE-488  PIN  CONNECTIONS  AND  DUGRAM 
The  pins  can  be  classified  into  three  groups  (14): 

1.  DATA  BUS 

The  pins  labeled  DI01-DI08  make  up  the  data  bus.  These  lines  are  used  to  pass  data, 
commands,  addresses,  and  status  reports.  The  data  is  passed  in  a  bit  parallel,  byte  serial  format. 

2.  DATA  BYTE  TRANSFER  CONTROL 

The  three  data  byte  transfer  control  lines  are  commonly  referred  to  as  the  handshake  bus. 

The  purpose  of  handshaJdng  is  to  ensure  that  all  the  information  that  is  transferred  on  the  bus  is 
received  by  the  proper  device.  The  three  lines  are: 

Not  Ready  For  Data  (NRFD)  -  This  line  is  controlled  by  the  devices  that  the 
controller  has  designated  as  a  listener.  If  a  listener  is  ready  for  data  transfer,  the 
devices  line  will  be  logically  high.  In  order  for  the  NRFD  line  to  be  high,  all  of 
the  active  listeners*  NRFD  lines  must  be  high.  Because  of  this,  the  NRFD  line 
will  operate  at  the  q)eed  of  the  slowest  device. 

Data  Valid  (DAV)  -  This  line  indicates  that  the  data  on  the  data  bus  is  valid.  The 
device  that  is  designated  by  the  controller  as  the  talker  controls  the  status  of  this 
line.  This  line  will  be  set  to  low  when  the  data  is  determined  to  be  valid.  This 
alerts  the  listeners  on  the  bus  that  they  can  now  accept  the  data.  In  order  for  this 
line  to  be  activated  low,  the  NRFD  line  must  already  be  activated  high. 

No  Data  Accepted  (NDAC)  -  This  line  is  controlled  by  the  devices  that  are 
designated  by  the  controller  as  listeners.  As  each  device  receives  the  data  from 
the  bus,  it  sets  its  NDAC  line  to  high.  After  all  of  the  listeners  have  set  their 
NDAC  line  to  high,  the  cable  NDAC  line  will  be  set  high. 

3.  GENERAL  INTERFACE  MANAGEMENT  LINES 

The  general  interface  management  lines  are  used  to  control  the  bus  and  to  report  the  status  of 
select  operations.  The  function  of  each  line  is  described  in  the  following: 

Remote  Enable  (REN)  -  If  this  line  is  high,  then  the  addressed  device  will  be  set  to 
REMOTE  operation.  If  this  line  is  low,  the  addressed  device  will  be  controlled 
by  the  (^>erator. 

Attention  (ATN)  -  This  line  will  describe  the  information  that  is  on  the  bus.  If  this 
line  is  high,  then  the  information  is  considered  to  be  data.  All  of  the  devices 
designated  by  the  controller  as  listeners  will  receive  data  from  the  device 
designated  as  a  talker.  If  this  line  is  low,  then  the  information  on  the  bus  is 
considered  to  be  a  command.  All  devices  on  the  bus  will  receive  commands. 
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End  Or  Identify  (EOI)  -  This  line  works  in  conjunction  with  the  ATN  line.  If  both 
the  EOI  line  and  the  ATN  line  are  high,  then  the  controller  will  initiate  a  parallel 
poll  of  the  status  of  each  device.  If  ATN  is  low  and  EOI  is  high,  then  the  last 
byte  in  a  data  message  has  been  located. 

Interface  Clear  (IFC)  •  If  this  line  is  high,  then  the  bus  will  be  set  to  an  idle  state. 
This  most  often  occurs  when  there  is  a  problem. 

Service  Request  (SRQ)  -  If  this  line  is  high,  it  indicates  that  the  device  that  activated 
it  requests  attention.  As  soon  as  the  controller  is  free,  it  will  let  the  calling  device 
perform  its  operation. 
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I£EE>488  PIN  DIAGRAM  (5) 
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GND  (TW  PAIR  W/SRQ) 
GND  (TW  PAIR  W/ATN) 
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APPENDIX  B 


SUPPLEMENTAL  GPIB  HARDWARE  (4) 

As  the  GPIB  interfacing  system  became  more  widely  accepted,  more  tools  were  developed  to 
enhance  its  performance.  The  hardware  listed  here  is  not  mandatory  for  a  system  that  utilizes  the 
GPIB,  but  may  enhance  system  performance. 

1.  GPIB  MODEM 

This  modem  will  allow  a  device  to  be  connected  via  a  telephone  line.  However,  because 
modems  transfer  data  bits  serially,  the  transfer  will  be  slow.  Thus,  a  modem  is  not  advisable  for  a 
system  that  will  make  a  large  number  of  transfers.  A  major  advantage  of  the  use  of  a  modem  is  that 
the  operator  can  be  physically  away  from  the  system,  with  operation  accomplished  via  telephone. 

2.  SERIAL  TO  GPIB  CONVERTER 

Currently,  most  computers  come  with  a  standard  serial  (RS-232)  port,  but  not  a  GPIB  (IEEE- 
488).  This  converter  will  allow  the  serial  port  to  be  converted  into  a  GPIB.  An  advantage  of  this  is 
that  the  converter  eliminates  the  cable  length  restrictions  placed  on  normal  GPIB  systems.  Also,  any 
device  with  a  serial  port  can  be  converted  into  a  GPIB  instrument.  Devices  that  are  connected  to 
this  converter  can  be  listeners  or  talkers,  since  the  RS-232  is  bi-directional.  There  will,  however,  be 
a  decrease  in  speed  performance  if  this  hardware  is  employed. 

3.  PARALLEL  TO  GPIB  CONVERTER 

This  converter  allows  any  unit  with  a  parallel  port  to  be  used  as  a  GPIB  instrument.  A 
limitation  to  this  device  is  that  it  must  be  used  with  listen  only  devices,  since  the  parallel  port  is  used 
for  output  only. 

4.  EXPANDER 

An  expander  is  a  device  that  will  allow  more  than  IS  devices  to  be  connected  to  the  GPIB. 
There  is,  however,  still  a  limit  of  31  total  devices  which  can  be  connected  at  one  time.  This  occurs 
because  each  device  on  the  bus  must  have  a  unique  address  ranging  from  0  to  30. 

5.  EXTENDER 

An  extender  is  a  device  that  will  allow  devices  to  be  distanced  more  than  the  recommended  2 
meters.  This  can  also  be  used  to  achieve  greater  electrical  isolation  and  less  data  transmission  errors 
due  to  electrical  interference. 

6.  DATA  BUFFER 

This  device  is  used  to  improve  the  efficiency  of  the  system.  Usually  the  systems  performance 
is  based  on  the  performance  of  the  slowest  device.  This  problem  is  overcome  by  isolating  the 
slowest  device  on  the  bus  through  the  use  of  a  data  buffer.  This  buffer  will  be  connected  to  both  the 
slowest  device  and  the  interfaced  system.  The  buffer  will  allow  the  slow  device  to  perform  its 
operation,  while  the  rest  of  the  devices  continue  to  perform  theirs.  An  example  of  this  is  a  system 
that  plots  output.  It  often  takes  quite  some  time  to  accomplish  this.  Without  a  data  buffer,  the 
whole  system  will  be  at  a  standstill  until  the  plot  is  complete.  With  a  buffer,  the  other  devices  can 
perform  their  operations  at  the  same  time  as  the  plotter,  leading  to  significant  performance 
improvements. 
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APPENDIX  C 


KETTHLEY  METRABYTE  IE-488  ERROR  FLAG  CODES  (8) 

The  error  codes  listed  will  be  returned  in  the  FLAG  parameter  of  the  GPIB  call  statement. 
These  codes  can  also  be  found  in  the  Keithley  Metiabyte  IE-488  Manual. 

DATA  TRANSFER  ERRORS 

&H00(X)  =  Successful  Transfer 
&H0020  =  No  Input  EOI  or  Line  Feed 
&H0030  =  Device  Timeout 
&H0040  =  Reserved 
&H(X)S0  =  DMA  Channel  Busy 
&H0060  =  GPIB  Busy 


HARDWARE  ERRORS 

&H0100  =  Hardware  Failure 
&H0200  =  Time  Out  on  Data  Transfer 
&H0300  =  Device  Not  Active  Controller 
&H04(X)  =  IBM  PC  Active  Controller 
&H05(X)  =  System  Not  Initialized 
&H0600  =  Configuration  Error 


FORMAT  ERRORS 

&H1(XX)  =  Undefined  Command 
&H1100  =  Syntax  Error  in  Command  Line 
&H2(XX)  =  Undefined  Image 
&H3000  =  Device  Range  Error 
&H31(X)  =  Too  Many  Devices 
&H3200  =  Talker/Listener  Conflict 
&H4000  =  Command/Data  Out  of  Range 
&H5000  =  Command  Requires  Device 
&H6(XX)  =  Undefined  Device  Code 
&H7000  =  Input  Array  not  Initialized 
&H9000  =  IBM  Must  be  Talker  or  Listener 


APPENDIX  D 


KEITHLEY  METRABYTE  IE-488  INTERFACE  COMMANDS  (8) 

The  interpreter  on  the  Keithley  MetraByte  IE-488  Interface  Board  implements  all  twelve 

standard  EEEE-488  messages.  Sending  the  following  messages  to  the  IE-488  Board  will  effect  the 

appropriate  pins  in  Appendix  A. 

1.  DATA  MESSAGE  -  Data  information  sent  from  the  talker  device  to  the  listener  devices. 

2.  TRIGGER  MESSAGE  -  Causes  the  listener  devices  to  perform  a  specific  action. 

3.  CLEAR  MESSAGE  -  Causes  addressed  devices  to  return  to  their  predefined  state. 

4.  REMOTE  MESSAGE  -  Causes  addressed  devices  to  switch  from  panel  to  remote  program 
control. 

5.  LOCAL  MESSAGE  -  Causes  remote  message  to  be  cleared  from  addressed  device. 

6.  LOCAL  LOCKOUT  MESSAGE  -  Prevents  operator  from  manually  returning  to  local  control 
from  the  panel. 

7.  CLEAR  LOCKOUT  MESSAGE  -  Clears  all  devices  on  the  GPIB  and  sets  to  local  mode. 

8.  SERVICE  REQUEST  MESSAGE  -  A  device  sends  this  to  request  service  from  the  controller. 
This  is  cleared  by  sending  the  device’s  Status  Byte  Message  when  it  no  longer  requires  service. 

9.  STATUS  BYTE  MESSAGE  -  A  data  byte  which  represents  the  status  of  the  device  on  the  bus. 

Bit  6  is  set  if  the  device  is  sent  a  Service  Request  Message,  and  the  remaining  bits  are  specific  to 
the  selected  device. 

10.  STATUS  BIT  MESSAGE  -  A  byte  which  represents  the  operational  conditions  of  a  group  of 
devices  on  the  bus.  Each  bit  represents  a  device  on  the  bus.  This  is  a  response  from  Parallel  Poll 
Operation. 

11.  PASS  CONTROL  MESSAGE  -  Allows  transfer  of  bus  management  duties  to  another  device  on 
the  bus. 

12.  ABORT  MESSAGE  -  System  controller  takes  unconditional  control  of  the  device  from  the  active 
controller.  This  message  terminates  communications  with  the  bus  and  sends  a  Clear  All  Message. 
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APPENDIX  E 


SOURCE  CODE 


* 
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.model  MEDIUM 


CALLGPIB.ASM 


:*  Evolved  from  work  of:  Jeffrey  Gruber,  Hollis  Greves,  Andrew  Klumpp, 
;*  Petrick  Sincebeugh,  end  Bredley  M.  Teber  III 

;*  For:  U.S.  Army  Meteriels  Technology  Leboretory 
;*  Meteriels  Testing  end  Eveluetion  Brench 
;*  Oete:  31  Merch  1992 


;*  This  routine  posses  commend  end  dote  strings  through  the  GPIB  boerd 


.DATA 


;Ec|uete  Ststements 


gpib_ram_sddr 

EQU 

DWORD  PTR 

[bprIO] 

;GPIB  ROM  Address 

dots' 

EQU 

WORD 

PTR 

(bp»8] 

;device  commend  or  dots 

commend 

EQU 

WORD 

PTR 

lfap»6] 

;GPIB  cosisend 

fleg 

EQU 

WORD 

PTR 

Cbp-6] 

;error  fleg 

bese 

EQU 

WORD 

PTR 

tfap-8] 

;Bddress  of  boerd  =  0 

i 

.COOE 

i 

_cellgpib 

PUBLIC 

PROC 

.cellgpib 

push 

bp 

;seve  bese  pointer 

«ov 

bp,  sp 

;set  i4>  stock  pointer 

push 

di 

;seve  dote  index 

push 

si 

;seve  source  index 

sub 

sp,  4 

;reserve  spece  for  locel  vsriables 
;flag  and  base 

;for  debugging  purposes, 
;mov  ex,  coBisand 

;mov  ex,  dots 

omit  and  monitor  ax 

;aiov 

ex,  [bp»10] 

;gpib_rcm  addr 

;fiiov 

ex,  Cbp«12] 

;gpib_rom_addr 

xor 

ex,  ex 

;set  ax  to  0 

mov 

flog,  ox 

;set  flag  to  0 

mov 

bese,  ex 

;set  base  to  0 

push 

coMmand 

;push  cosisend 

push 

dote 

;push  date 

mov 

ex,  bp 

;get  pointer  to  local  variables 

sub 

ex,  6 

;adjust  to  point  to  flag 

push 

ax 

;pu8h  flag 

sub 

ex,  2 

;adju8t  to  point  to  base 

push 

ax 

;push  base 

cell 

gpib_ram_eddr 

;call  the  GPIB  ROM 

;  After 

return  from  GPIB  boerd,  the  pointers  (comesnd,  dots. 

;  flafl. 

bese)  ore  off  of 

the  stack 

pop 

ax 

;get  flag 

pop 

ax 

;get  flag,  return  it  in  ax  register 

pop 

si 

; recover  source  index 

pop 

di 

; recover  data  index 

_cellgpib 

pop 

ret 

ENOP 

END 

bp 

; recover  bese  pointer 
;return  to  calling  function 
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•  Written  bvi  Bradley  N.  Teber  III 

*  For:  U.S.  Aray  Neteriele  Technology  Laboratory 

*  Nateriala  Teating  and  Evaluation  Branch 

•  Data:  6  April  1992 


*  Include  file  for  uaa  with  GPIB  coaaunicationa  board 


/ 


fifndef  GPIB  N 
Mafina  GPIB'h 

iinclude  <fatraaa.h> 

Bdefina  DEF  IREO  2  //default  GPIB  board  settinga 

Mafina  OEF'ona  3 

Bdefine  OEF~NAO  3 

Bdefine  DEF~CIC  1 

Bdefina  OEF'noB  1 

Bdefine  0EF~BA0  300 

Bdefina  DEF~BA1  0 

Bdefine  0EF~RQM_A00R  NC_FP(OxC800,0000) 

Bdefina  I0_STR_LEN  80  //default  coanand  length 


/* 


/ 


//Thia  ia  the  data  aructure  for  coaeand  and  data 
claaa  gpib  dat 

private; 

//Data  Maabera 
char  length; 
char  ‘dat^str; 


I/O  with  the  GPIB  board 


//length  of  output  atring 
//pointer  to  atring 


public: 

//Conatructora  /  Oeatructor 

gpib_dat(conat  char  *dat_str.in); 
gpib~dat(canat  int  size_7n); 
*gpib_dat(); 


//conatructora  ■  coaiaanda 
//  •  data  in 
//daatructor 


//Accaaa  /  Modify 

void  sat_length(conat  char  length_in); 
char  get^lengthO  conat;  ~ 

void  act_dat(corwt  char  *dat_str_in); 
void  gat~dat(char  *dat_atr_out)  conat; 
char  gat~dat_ata(conat~int~index); 


>; 


//Output 

friend  oatraaai  Boperator«(oatrcaM  Bout.atreaa, 
conat  gpib_dat  (gpib_dat_in>;  ~ 


/* 


•/ 


//Thia  claaa  repraaenta  the  GPIB  board  and  all  the  neceaaary  paraaietera 
claaa  gpib 
( 

private: 

//Data  Maabera 
int  ireq; 
int  dm; 
int  Mad; 
int  cic; 
int  nob; 

unaignad  int  baO; 
unaignad  int  bal; 
void  far  *roM_addr; 
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public: 

//Conatnjctort 

gpib<); 

gpIMint  ireq_in,  int  «bH_{n,  int  Md.in,  int  cic_in,  int  nob.in, 
unsigned  int  baO_in,  uraignsd  int  te1_in,  void  far  *rai_addr_in); 

//Access  /  Modify 

void  getjMrssalint  Airoq_out,  int  Mse.out,  int  tasd_out, 
int  Acic.out,  int  inob_out,  unsigned  int  CbeO_out,~ 
m{gned~ int  ibe1_out,~void  fer*  &roai_eddr_out); 
gpib  tgpib: :capy<const  gpib  Agpib.in); 
gpib  Agpib::operetor  ■  (const  gpib  Agpib.in); 

//GPI8  board  functions 
unsigned  int  init_gpib<); 

unsigned  int  gpib~cosisnd< conet  char  *gpib_casl); 
unsigned  int  device_coswsnd< const  char  *dev_cad,  const  int  dev_addr); 
unsigned  int  devicejquery<const  int  len,  char  *dev_dat, 
const  int  dev_addr); 

int  error_handler(const  unsigned  int  ftag_in,  const  gpib_dat  Atast_cari); 
unsigned  Int  abrtO; 

unsigned  int  clear(conat  char  *devices); 
unsigned  int  config(conat  char  ^options); 
unsigned  int  enter(const  char  ^device); 
unsigned  int  eoi (const  char  ^device); 
unsigned  int  locaUconst  char  ^devices); 
unsigned  int  lockout (const  char  *devices); 
uwignod  int  output(const  char  ^devices); 
unsigned  int  parpolO; 
unsigned  int  pasctKconst  char  *devices); 
unaigned  int  ppconf(const  char  ^device); 
unsigned  int  ppuncf(conat  char  ^device); 
unsigned  int  rea»te(const  char  *devices); 
unsigned  int  request(conat  char  ^device); 
unsigned  int  rxctlO; 
unsigned  int  status(const  char  ^device); 
unsigned  int  syscon(const  char  *paraaKters>; 
unsigned  int  trigger(const  char  ^devices); 


//Asseatily  language  routine  for  coossjnication  with  GPIB  board 
extern  "C"  unsigned  int  callgpib(const  gpib_dat  *cari_out,  gpib_dat  *data_in, 
const  void  far  *rois_sddr);  ~ 

Pandif  //GPI8_H 


■» 
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GPI8.CPP 


*  Writtan  by:  Iradlay  N.  Tabar  III 

*  For:  U.S.  Anay  Natarials  Tachnology  Laboratory 

*  Matarials  Tatting  and  Evaluation  Branch 

*  Data:  6  April  1992 


*  iMplaMantation  fila  for  GPIB.H 


/ 


fincluda  <at8art.h> 
fincluda  <conio.h> 
iincluda  <doa.h> 
Bincluda  <fatraaM.h> 
fincluda  <8tdlib.h> 
fincluda  <string.h> 

fincluda  "gpib.h" 


/* . V 

/*  claas  gpib  dat  */ 

/* . . . V 


//Conatructor  ••  for  string  output  only 

inline  gpib  dat::gpib  datfeonat  char  *dat  str  in) 

i 

length  ■  etrlen<dat_atr_in); 
dat_str  ■  new  charcTength>1]; 
aaaart<dat_atr  0); 

8trcpy(dat~atr,  dat  str  in); 

) 

. . . 


//Constructor  ••  for  data  input  only 
gpib  dat: :gpib  datlconst  int  size  in) 

< 

dat_str  a  new  chartsiza_in]; 

aasartfdst.str  (a  O); 

for  <ragistar  int  0*0;  c<siza  in;  c»4) 

dat.atrlc]  a  t\o>;  ~  //NULL 

length  a  Q;  //not  used  for  input 


/• 


V 


//Destructor 

inline  gpib  dat::*gpib  detO 
delate  dat  str; 

> 

/* . V 

//Sat  length 

inline  void  gpib  dat::sat  lengthfconat  char  length  in) 

( 

length  a  length  in; 

) 

/* . */ 


//Sat  length 

Inline  char  gpib  dst.-igat  langthO  conat 
( 

return  length; 

> 

. . . 
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//S«t  dat  str 

ini  In*  voTd  gpib  dat::Mt  dat(conat  char  *dat  atr  in) 

< 

strcpyCdat  str,  dat  atr  in); 

) 

. . - . V 


//Cat  dat  atr 

inlina  voTd  gpib  dat::gat  dat(char  *dat  atr  out)  conat 

< 

atrcpyCdat  atr  out,  dat  atr); 

>  -  -  .  - 

/* . V 


//Got  dat.atr  oloaMnt 

inlina  char  gpib  dat::got  dat  elelconat  int  index) 

{ 

return  dat  atr (index); 

> 

/* . V 


//Output  ••  for  output  atringa  only 

oatreaa  ioperator«(oatreaiB  iout  atreaai,  conat  gpib  dat  tgpib  dat  in) 

< 

char  Ian  >  gpib_dat_in.get_length(); 

char  *atr  •  neu'chartlen*’)]; 

aaaert(atr  0); 

gpib  dat  in.get  dat(atr); 

cout"«  «  atr  «  "•  <"  «  int(len)  «  •)"; 

dalete  atr; 

return  out  atreaai; 

> 


/* . V 

/*  claaa  gpib  */ 

/* . •/ 


//Conatructor 

gpib::gpib<) 

< 

ireq  •  0; 

<ta  .  0; 

Md  -  0; 
cic  ■  0; 
nob  >  0; 
baO  ■  0; 
bal  «  0; 

roai.addr  •  MK_FP(0x0000,0000); 


/* . V 


//Conatructor 

gpib: :gpib( int  ire:i.in,  int  dM_in,  int  oad.in,  int  cic_in,  int  nob_in, 
unaignod  int  baO  in,  uneignod  int  bal  in,  void  far  *ra«  addr  in)~ 

< 

ireq  ■  ireq_in; 

Md  a  oad^in; 
cic  ■  cic~in; 
nob  »  nob'in; 
baO  B  ba0~in; 
bal  ■  baCin; 
real  addr  B'roai  addr  in; 

>  ■ 

/• . */ 
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//6«t  VIS  ParHMtcr* 

inlina  void  gpibsigtt^poraMiint  tiroq_out,  int  AdM.out,  int  laod.out, 
int  ftcic  out,  int  tnab_aut,  tmignod  int  tfao0_aut7  iraignod  int  Ibol.out, 
void  far*  Inm  addr  out) 

C 

iraq_out  ■  iraq; 
te_out  a  (taa; 

■ad^out  a  aad; 
eie_out  a  cic; 
nob.OUt  a  fipb; 
baO.out  a  baO; 
bailout  a  bal; 


//Cepf  gpib 

inlina  gpib  Agpibiteopylconat  gpib  Idpib  in) 

€ 

iraq  a  qpib  in.iraq; 
daa  a  gpib^in.dn; 

■ad  a  gpib^in.aad; 

cic  a  gp{b7in.cie; 

nob  a  gpib7in.nob; 

baO  a  gpib^in.baO; 

bal  a  gpib^in.bal; 

roa_addr  a  gpib_in.roa_addr; 

ratum  *tiiia; 

> 

/* . V 

/Aivarload  oparator  a 

gpib  tgpib:: oparator  •  Iconat  gpib  Agpib  in) 
i 

if  (this  (a  Igpib  in)  ratum  copi^lgpib  in); 

/• . V 

//Initialiaa  911  board 
unaignad  int  gpib:: ini t  gpibO 
i 

char  oaddO.STI.LCm ,  toqpCIO.STI.LEHl ; 

atrcpylcad,  "STSOOg  lMOa\Oa};  //ayatoa  configuration,  auat  ba 

itoaiaad,  toap,  10);  //cant  bafora  any  othar  coaaanda 

otrcatlcad,  toap); 

atrcatfcad,  ”,CICa\0”); 
itoalcic,  taqp,  10); 
atrcatlcad,  toqp); 

atrcat(cad,  "(gogavO**); 
itoalnob,  taqp,  10); 
strcatfcad,  toap); 

atrcatlcad,  ”,iM)aM\0«); 
itooibaO,  taqp,  10); 
atrcatlcad,  toap); 

if  (nob  aa  2) 

< 

strcatCcad,  ".lAlaANVO"); 
itoa<ba1,  toap,  10); 

8trcat(cad,  toip); 

} 
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gpib.coMMndCcad); 

gpi  b_caaiMnd<  "T I MEOUTXO"  > ; 

gpi  b_caHMnd(  "ASORTXO" ) ; 

unsigntd  int  flag  *  gp{b_caaMnd('*CLEAK\0"); 

return  flag; 


//Send  coRMnd  to  GPIB  board 

wiaignod  int  gpib::gp{b  c—a ndfconat  char  *gpib  cad) 
i  ~ 

gpib.dat  cad_out<spib_cad); 

gpib.dat  data_out(1);  //data_out  doeen't  hold  anything 

//but  pointer  ia  atill  neeesaary 

unaigned  int  flag  ■  callgpib<taad_out,  Sdata_out,  roai_addr); 
if  (flag)  error_handler(f lag,  cad~out); 
return  flag;  ”  ~ 


//Send  caeaand  to  device 

unaigned  int  gpib::device_caMaand( const  char  *dev_cari, 
conat  int  dev  addr) 

< 

char  gpib.cadCIO.STR.LEM]  «  "OUTPUT  \0";  //aust  be  sent  for 

char  dev  addr  atrOl; 
itoa(dav~addr7  dev_addr_str,  10); 

strcat(gpib_cad,  dM_a(Mr_str);  //device  coaeend 

street (gpib_cad,  "tS]\0"); 

gpib^dat  cad_out(gpib_cad),  data_out(dev_cad); 
unaigned  int~flag  "  callgpib<tcad_out,  (data_out,  raa_addr); 
if  (flag)  error_handler(flag,  cad^out); 
return  flag; 


//Get  data  froa  device 

laieigned  int  gpib::davice_query(canst  int  len,  cher*  dev_dat, 
conat  int  dev  addr) 

( 

char  gpib_cadCIO_STR_LEH]  >  "ENTER  \0";  //aust  be  sent  for 

char  dev  addr  str(3]; 
itoa(dev7addr7  dev_addr_str,  10); 

strcat(gpib_cad,  dev_addr_str);  //for  device  input 

strcatCgpib^cad,  "CSfvO"); 

gpib.dat  cad_out(opib_cad),  data_in(len); 

unsigned  int  flag  «  callgpib(tcad_out,  Sdota_in,  roa_addr); 

if  (flag)  error_handler(flag,  cad^out); 

for  (register  int  c"0;  c<(en;  cm') 
dav_dat(c]  "  dats_in.get_dat_e(e(c); 
retunTflag; 


//Error  handler 

/*  The  user  is  encouraged  to  change  or  add  to  the  advise  vhen  solutions 
to  errors  are  discovered.  This  function  returns  0  if  the  prograa  can 
continue  and  1  if  the  prograa  should  terainate.  It  is  up  to  the  user 
to  iepleaent  a  graceful  teraination  if  necessary.  */ 


31 


int  gpib::*rrer  handl«r(can«t  unaignad  int  flag  in,  conat  gpib  dat  tlaat  cad) 

<  ■ 

if  (flag^in  0)  ratum  0;  //gat  out  if  no  arror 

int  flag; 

soundlSOO);  dalay(IOO);  //soud  alana 

aounddOOO);  dalayflOQ); 
aoiavKSOO);  dalayflOO); 
noaoundO; 

earr  «  SPIi  EMOl  ***\n"; 

carr  «  "lb  CONMND  ■  «  laat.ead  «  ‘Vn*; 
earr  «  "EtbOt  CODE  ■  «  flag^in  «  ‘Xn*; 
awitch  (flag[_in) 

C 

CM#  0x0020s 

ccrr  «  ONO  input  EOl  or  LINE  FEEDVi"; 
earr  «  "Advisa:  Chack  iaaga  tanainatorXn"; 
flag  >  0; 
braak; 

caaa  0x0030: 

earr  «  ‘VEVICE  TIME  0UT\n“; 
carr  «  "Adviaa:  conault  ■anualVrf*; 
flag  a  0; 
braak; 

caaa  0x0040: 

carr  «  "EESERVEOXn"; 

carr  «  "Advisa:  conault  aanualNn"; 

flag  a  0; 

braak; 

caaa  0x0050: 

carr  «  "DMA  CHANNEL  BUSTNn"; 

carr  «  "Advisa:  try  again  whan  claaradXn"; 

flag  a  0; 

braak; 

casa  0x0060: 

carr  «  "OPIt  EUSYVn"; 

carr  «  "Advisa:  conault  aanualXn"; 

flag  a  0; 

braak; 

casa  0x0100: 

carr  «  "NAROUARE  FAlLUREXn"; 

carr  «  "Advisa:  cback  GPU  I/O  addrassXrf; 

flag  a  1; 

braak; 

casa  0x0200: 

carr  «  "TIME  OUT  ON  DATA  TRANSFERXfY'; 

carr  «  "Advisa:  chack  GPIB  cabla  connaction,  GPIB  addrass,  andXn"; 
carr  «  "  aaka  sura  davica  is  onXn"; 

flag  a  0; 
braak; 

caaa  0x0300: 

carr  «  "DEVICE  NOT  ACTIVE  CONTmXLERXn"; 

carr  «  "Advisa:  chack  davica  nudwr  or  aaka  davica  activa  control  larXn* 

flag  a  0; 

braak; 

CM#  0x0400* 

c#rr  «  "IM-PC  ACTIVE  OONTROLLERW; 
carr  «  "Advisa:  conault  aanualXn**; 
flag  a  0; 
braak; 

casa  OxOM: 

carr  «  "SYSTEM  NOT  IHlTIALIZEOXn”; 

carr  «  "Advisa:  axacuta  function  init  gpibO  to  initializaXn"; 

fipg  «  1; 

braak; 

caaa  (bi0600: 

carr  «  "CONFIGURATION  ERRORXn"; 

carr  «  "Advisa:  chack  SYSCON...  in  init  gpibOXn"; 

flag  a  1; 

braak; 
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case  0x1000: 

carr  «  nMOEFINEO  COMNANOXn**; 

carr  «  "Advlaa:  Uaa  available  cnawandXn"; 

flag  «  0; 

break; 

caaa  0x1100: 

carr  «  "SYNTAX  ERROS  IN  COMMAND  LINEXn"; 
cerr  «  "Adviae:  ctMck  caaaand  syntaxXn"; 
flag  a  0; 
break; 

caaa  0x2000: 

cerr  «  "UNDEFINED  INAOEXn"; 
cerr  «  "A^iae:  conault  nanualXfY*; 
flag  a  0; 
break; 

caaa  0x3000: 

cerr  «  "DEVICE  RANGE  ERRORXn"; 

cerr  «  "Advise:  aake  sure  device  nudsers  are  within  specified  rangeXn"; 

flag  a  0; 

break; 

case  0x3100: 

cerr  «  "TOO  MANY  OEVlCESXn"; 
cerr  «  "Advise:  consult  want  is  I  Xn"; 
flag  a  0; 
break; 

case  0x3200: 

cerr  «  "TALKER/LISTENER  CONFLICTXn"; 
cerr  «  "Advise:  consult  aanualXn"; 
flag  a  0; 
break; 

ease  0x4000: 

cerr  «  "COMMANO/OATA  OUT  OF  RANGEXn"; 
cerr  «  "Advise:  consult  isanualXn"; 
flag  a  0; 
break; 

case  0x5000: 

carr  «  "COMMAND  REQUIRES  OEVICEXn"; 

cerr  «  "Advise:  execute  cosawnd  on  specific  device  number(s}Xn"; 

flag  a  0; 

break; 

CM#  0x6000e 

cerr  «  "UNDEFINED  DEVICE  COOEXn"; 
cerr  «  "Advise:  consult  aanualXn"; 
flag  a  0; 
break; 

OxTtiOOe 

cerr  «  "INPUT  ARRAY  NOT  INITIALIZEDXn"; 
cerr  «  "Advise:  consult  manual Xn"; 
flag  a  0; 
break; 

case  0x9000: 

cerr  «  "IBM  MUST  BE  TALKER  or  LISTENERXn"; 
cerr  «  "Adviae:  consult  manualXn"; 
flag  a  0; 
break; 
default: 

cerr  «  "UNDEFINED  ERROR  COOEXn"; 
cerr  «  "Advise:  consult  manualXn"; 

flag  a  0; 

break; 

> 

if  (flag  a>  0}  cerr  «  "Program  can  continueXn"; 
else  cerr  «  "Program  should  terminateXn"; 

cerr  «  "HIT  ANY  KEYXn"; 
getchO; 

return  flag; 

> 
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t 

*  Th*  following  functions  sro  not  nscssssry  for  this  driver  but  sro 

*  provided  ss  s  convenience  to  the  user. 

_ .................... _ .... 


//Abort 

inline  unsigned  int  gpib::sbrt<} 

migned  int  flog  *  gpib.cosasndCABORTXO*); 
return  flsg; 


/* . 

//Clesr  devices 

inline  msigned  int  gpib::clesr(canBt  chsr  *devices) 

< 

Cher  csritlO.STR.LEN]  «  "CLEAR  \0"; 
strestcesd,  devices); 
unsigned  int  flsg  >  gpib_ca— andfewd); 
return  flsg; 


/• . 

//Config  GPIB 

inline  unsigned  int  gpib::config( const  chsr  "options) 

< 

chsr  cad(IO_STR_LEM]  >  "CONFIG  \0"; 
strcat(cad,  options); 
unsign^  int  flsg  >  gpib.cosMndlcad); 
return  flsg; 


/* 


//Input  GPIB  dsts 

inline  unsigned  int  gpib::enter(const  char  "device) 

< 

chsr  caKltlO_STR_LEN)  «  "ENTER  \0"; 
strcstlaad,  device); 
unsigned  int  flag  "  gpib.coanandlcari); 
return  flag; 

) 

/" . 

//Send  data  byte  with  EOI  asserted 

inline  unsign^  int  gpib::eoi (const  chsr  "device) 

< 

Cher  ciri(IO_STR_LEN]  ■  "EOI  \0"; 
strcat(caai,  device); 
unsigned  int  flag  «  Bpib_cowBand<caal); 
return  flsg; 

> 

/" . 


//Set  selected  devices 

inline  wsigned  int  gpib::  local  (const  chsr  "devices) 
( 

Cher  caritlO.STR.LENl  «  "LOCAL  \0"; 
strcet(caid,  devices); 
unsign^  int  flag  «  gpib_cawaind(cwd); 
return  flag; 

> 
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//Lockout  seloctod  devices 

inline  unsigned  int  gpib:: lockout (const  cher  *devices) 

< 

Cher  c*dtIO_STR_LEMl  ■  "LOCKOUT  \0"; 
streat(csd,  devices); 
unsigned  int  flag  «  gpib_coamand(and); 
return  flag; 

> 

. . 

//Output  string  to  selected  devices 

inline  unsigned  int  gpib::output(corist  char  "devices) 

( 

char  ciBdtJO_STR_LEM]  ■  "OUTPUT  \0"; 

St rcat ( cad, "devices ) ; 

unsigned  int  flag  "  gpib_canmand(cnd); 

return  flag; 

> 

/* . 


//Reads  status  bit  message  for  parallel  poll  devices 
inline  unsigned  int  gpib::parpol() 

( 

unsigned  int  flag  "  gpib_coainand(”PARPOL\0"); 
return  flag; 

> 

/* . 

//Pass  control  to  selected  device 
inline  unsigned  int  gpib::pasctl(const  char  "device) 
( 

char  cadtIO_STR_LEMl  =  "PASCTL  \0"; 
s t rca t ( cad , "device ) ; 
unsigned  int  flag  "  gpib_coiiinand(cmd); 
return  flag; 

> 

/" . 

//Set  up  parallel  poll 

inline  unsigned  int  gpib: :ppconf (const  char  "device) 

< 

char  cad(IO_STR_LEM]  »  "PPCONF  \0"; 
strcat(cad, "device) ; 
unsigned  int  flag  "  gpib_coaiMnd(cad); 
return  flag; 

> 

/" . 


//Resets  parallel  poll 

inline  unsigned  int  gpib: :ppuncf (const  char  "device) 

{ 

char  cad(IO_STR_LEN]  «  "PPUMCF  \0"; 

St rcat ( cad, "device) ; 

unsigned  int  flag  ■  gpib_coaiRand(cad); 

return  flag; 

> 

/" . 

//Sets  selected  devices  to  go  into  remote 
inline  unsigned  int  gpib::reaote(const  char  "devices) 
( 

char  cadtIO_STR_LEH]  «  "REMOTE  \0"; 
strcat(csid,  devices); 
unsigned  int  flag  "  gpib_command(cad); 
return  flag; 

> 
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/* 


*/ 


//RaquMts  service  fro*  active  controller 
inline  unsigned  int  gpib::request(const  cher  ^device) 
< 

dier  cidlIO_STR_LEN]  >  "REQUEST  \0"; 

strcat(caid,~devTce>; 

unsigned  int  fleg  •  gpib_coeniand<cwd); 

return  flag; 


/* . V 

//Returns  control  of  the  bus  to  the  PC 
inline  unsigned  int  gpib;:rxctl() 

{ 

unsigned  int  flag  >  gpib_coaiiiand("RXCTL\0"); 
return  flag;  ~ 


/• . */ 


//Reads  serial  polled  device  status  byte 

inline  insigned  int  gpib: :status<const  char  "device) 

( 

char  cmdlIO_STR_LEM]  »  “STATUS  \0“; 
strcat(aad,  device); 
unsigned  int  flag  >  gpib_coMaand(csKl); 
return  flag; 

> 

/* . */ 

.. Tets  up  systeM  configuration  and  initialization  of  GPIB 
'>,ine  unsigned  int  gpib::syscon(const  char  "paraMters) 

Cher  eiedtIO_STR_LEM]  ■  "SYSCOR  \0"; 

St  rest  (cad, '‘periMieters ) ; 

unsigned  int  flag  ■  gpib_con«iand(cind); 

return  flag; 

) 

/• . V 


//Sends  trigger  awssage  to  selected  devices 

inline  unsigned  int  gpib::trigger(const  char  "devices) 

i 

char  caddO.STR^LEN]  ■  "TRIGGER  \0"; 
strcat(cad,  devices); 
unsigned  int  flag  >  gpib_coaiaand<caid); 
return  fleg; 

) 

. . . 
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TEK2430A.H 

*  Written  by:  Bradley  M.  Taber  III 

*  For:  U.S.  Army  Materials  Technology  Laboratory 

*  Materials  Testing  and  Evaluation  Branch 

*  Date:  6  April  1992 

Include  file  for  use  with  Tektronix  2430A  Oscilloscope 


fifndef  TEK2430A  H 
«define  TEK2430A~H 

#define  MAX_PTS  1024  //Maximus  nunber  of  points 

Bdefine  DEF_GPIB_ADOR  15  //Tektronix  GPIB  addrehs, 

//range(0-30),  make  unique 
//max  data  points  for  curve 

class  tek2430A 

< 

private: 

//Data  Members 
gpib  board; 
int  gpib_a^r; 

public: 

//Constructor 

tek2430A(const  gpib  &faoard_in,  const  int  gpib_addr_in  >  DEF_GP1B_A00R>; 

//Initialixe  Tek  2430A  Scope 
unsigned  int  tek_initO; 

//Access  /  Modify 

void  set_bosrd(con8t  gpib  &board_in); 
gpib  get~bosrd(); 

void  set~gpib_addr(const  int  gpib_addr_in); 
int  get_gp’'b_addr(); 

//Device  Input  /  Output 

unsigned  int  tek_command( const  char  *cmd); 
char  •s_tek_query< const  char  ‘query); 
float  f~tek”query(con8t  char  ‘query); 
int  i_tek_query<const  char  ‘query); 

unsigned  Int  capture_curve< const  int  num_pts,  int  ‘curve_out, 
const  int  i_channel); 
float  tek_sampre_rateO; 

//Conversion 

void  convert_to_volts<const  int  num_pts,  float  ‘f_curve, 
const  int~‘r curve); 

>; 

Bendif  //TEK2430A_H 
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TEK2430A.CPf> 


*  Urittan  by:  Bradley  H.  Tabar  III 

*  For:  U.S.  Amy  Materials  Tachnolofly  Laboratory 

*  Materials  Tasting  and  Evaluation  Branch 

*  Data:  6  April  1992 


•  iMplaanntation  fila  for  TEK2430A.H 


Bincluda  <ctypa.h> 
fincluda  <stdlib.h> 

Bincluda  <string.h> 

fincluda  "gpib.h" 
fincluda  "tak2430a.h» 

/* . 

//Constructor 

tok2430A::tak2430A(const  gpib  Bboard  in.  const  int  gpib  addr.in) 

< 

gpib_addr  >  gpib_addr_in; 
bMrd  s  board  in; 

> 

/* . 

//Initialize  Tektronix  2430A  Oscilloscope 
unsigned  int  tek2430A: :tek  initO 

//Mandatory 

bMrd.davica^coaanndCROS  OFF\0",  gpib_addr); 
board. devica2caaMMnd("INIT  SRQ\0'',  gpib_addr); 

//Optional  ••  defaults  scope  for  whole  digitized  curve,  can  be  changed 
//  with  subsequent  coaiaanda 

board. device^coamandCPATH  OFFNO",  gpib_addr); 
board. device'eoamandCSTART  INO",  gpib.addr); 

char  aadtIO_STR_LEM]  =  "STOP  \0"; 
char  pointsT?]; 
itoa(MAX_PTS,  points,  10); 
strcatCcsKl,  points); 

unsigned  int  flag  «  board. device_coinaand( and,  gpib_addr); 
return  flag; 

) 

/* . 

//Set  GPIB  board 

inline  void  tek2430A::set  boardlconst  gpib  (board  in) 
board  *  board  in; 

> 


/* 


*/ 


//Get  GPIB  board 

inline  gpib  tek2430A::get  boardO 
return  board; 

> 


//Set  gpib_addr 

inline  void  tek2430A: :set  gpib  addrfeonst  int  gpib  addr  in) 
{ 

gpib  addr  >  gpib  addr  in; 

>  ~ 
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/* 


V 


//G«t  gpfb.addr 

<nl1rw  int~tel(2430A::g«t  gpib  addrO 
t 

return  gpib  addr; 

> 

I* . V 

//Sand  coanand  to  acopa 

unaignad  int  tak243(M::tck  coawandC cooat  char  *cad) 

( 

unaignad  int  flag  >  board. davica_conmnd(cad,  gpib.addr); 
ratum  flag; 

> 

/* . V 


//Send  query  to  acope,  return  atring  data 

inline  char  *tck2430A::a  tek  querylconat  char  *query) 

C 

char  *data_in  a  new  charCIO_STR_LEM]; 
board.device_caaiaand(query,~gpib_addr>; 
board.device~query(IO_STR_LEN.  data-in,  gpib_addr); 
returnfdata  In); 

> 

/• . V 

//Send  query  to  scope,  return  float  data 
float  tei(2430A::f  tek  querylconst  char  *query) 

{ 

char  dota_inIIO^STR_LEM]; 
board.devTce.coanandlquery,  gpib_addr); 
board.device~query(IO_STR_LEN,  ^ta.in,  ^ib^addr); 

register  int  c  >  0;  //put  pointer  to  correct  place 

while  (lisdigit(deta_in[c]))  c**; 

if  <<c  l«  0)  U  (data_inCc*1]  »«  •-'))  c-*; 

return(atof(S(data  in(c])));  //convert  to  float 

> 

. . . 


//Send  query  to  scope,  return  integer  data 
int  tak2430A::i  tek  querylconst  char  *query) 

{ 

char  data_inCIO_STR_LENl; 

board. devTce.coanandlquery,  gpib_addr}; 

board. device~query(IO_STR_LEN,  data_in,  gpib.addr); 

register  int  c  >  0;  //put  pointer  to  correct  place 

while  (!isdigit(data_inCc]))  c**; 

if<(c  l«  0)  U  (data~in(c*1]  ■»  '-•))  c--; 

return(atoi(S(data  inCe])));  //convert  to  integer 

> 

/• . V 


//Capture  integer  curve  froM  scope 

unsigned  int  tek2430A: :capture_curve( const  int  nue_pts,  int  *curve_out, 
const  int  i  channel) 
t 

if  (nue _pts  >  NAX_PTS)  return  t; 

char  *data  in  >  nm  chartMAX  PTS'»6];  //scope  sends  extra  bytes 

char  cskIIIO.STR.LEN]  «  "OATa“sOURCE:CH\0"; 

char  channeT(3]; 

itoa(i_channel,  channel,  10); 

strcatfcsKl,  channel); 
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board.dtvice_ciMMnd(cad,  gpib.addr); 
bMrd.dtvicc'conandCPATH  OFFXO",  gpib.addr); 
bMrd.dtvic«~coaMnd<''START  1\0",  gpib_iddr); 

•trqiy(cad,  "STOP  \0"); 
char  points  [7]; 
ttoa(NAX_PTS.  points.  10); 
strcatCcib,  points); 
board.devico_coMsand<csd,  gpib.sddr); 

boord.dsvics.coisncICOATA  EIICOG:RlBINARr\0>.  gpib.addr); 
boord.dtvico~casMnd("CURVE7\0",  gpib.addr); 

unsignod  int'flsg  «  boarcl.dovico_quory«NAX_PTS««),  data_in,  gpib_addr); 

for  (rsgistor  int  caO;  c<nus_pts;  c»)  //cast  to  intager  and 

curvc_outCc]  a  data_inCc>3];  //skip  extra  bytes 

delete  data_in; 
return  flagj 


/* . V 


//Get  float  voltage  saplitude  frosi  integer  asiplitude 
void  tek2430A::eonvert_to_volts(const  int  nuai_pts,  float  *f_curve, 
const  int  *i  curve)"  ~ 

< 

float  yoff  a  f  tek  query(*WFHPgE?  rOFF\0"); 
float  ysult  a  f_tek_query("UFNPilE7  YI«LT\0"); 

for  (register  int  caO;  c<nus_pts;  c-^^) 

f  curveCc]  a  (l  curveCc]  -  yoff)  "  ysult;  //conversion  algoritha 
>  “ 

/* . */ 


//Return  sanple  rate  of  current  signal 
float  tek2A30A::tek  ssaple  rateO 
( 

int  nuK  divisions  a  20; 

if  (S  tek  query("H0RIZ0NTAL7  NOOE\0")(0]  «a  'A') 

retum'f  tek  <|uery("HaRIZ0NTAL7  ASEa>IV\0")/(MAX  PTS/nua  divisions); 
if  (s  tek  query("HaRIZ0NTAL7  Na0E\0")(0]  as  •g*) 

retum"f _tek_query< "HOR 1 Z0NTAL7  BSECO I V\0” )/(NAX_PTS/nija_di vi s ions); 
return  0;  ”  " 


/* 


V 
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OISPUY.H 

*  Writtan  by:  Bradlty  H.  Taber  III 

*  For:  U.S.  Army  Matariala  Technology  Laboratory 

*  Materials  Testing  and  Evaluation  Branch 

*  Date:  6  April  1992 

***•••< 

*  Include  file  to  use  screen  I/O  function  on  curves 


iifndef  DISPLAY  H 
«define  OISPUY^H 

//Screen  Output 

int  displsy_curve(contt  int  nijn_pte,  const  float  *dat,  const  float  Y_AIV); 
Bendif  //  DISPLAY  H 
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DISPLAY. CPP 


*  Urittan  by:  Iradiay  N.  Tabar  III 

*  For:  U.S.  Artair  Natarlals  Tachnology  Laboratory 

*  Natorlala  Tooting  and  Evaluation  tranch 

*  Data:  «  April  1992 


•  laptaaantatlon  fUa  for  OISPLAT.N 


/ 


iincluda  <conlo.h> 

•Includo  <f8troaai.h> 
fincludo  <gra|dtlc8.h> 
fincludo  <atdIo.h> 
iincluda  <8tdllb.h> 

iincluda  "dlsplay.h" 

/* . V 

//Graphically  display  curva 

Int  display  curvafconst  Int  nua_pts,  const  float  *dat,  const  float  T  AMP) 
i  ~ 

Int  grph_drvr  ■  DETECT,  gsnda,  orrorcodo; 

InItgraph(Sgrph_drvr,  igtsodo,  ■“■); 
orrorcodo  >  gra^rosultO; 

If  (orrorcode  !>  grOk) 

{ 

carr  «  "Graphics  Error:  "  «  grapharronMg(arrorcode)  «  ‘\n‘; 

carr  «  "Prass  any  key  to  tensinate:"; 

gotchO; 

axlt<1); 

> 

S8tbkcolor(BLUE); 

sctcolor(YELLOU); 

cloardtvIcaO; 

euttaxtxyfS,  20,  "Display  of  digitized  wavafons:"); 

for  (Int  c*0;  c<nusi _pts;  c**)  //  scale  and  draw 

float  X  *  (float(c)  "  (f loat(6A0)*float(0)))  /  float(nua _pts); 
float  y  >  240  •  (datCc]  •  Y_AMP); 

If  (C""0)  iiovato(x,y); 
also  lIncto(x,y); 

> 

outtextxy(215,  455,  "<HIT  AMY  KEY  TO  C0NTINUE>"); 

gatchO; 

closagraphO; 

return  0; 


/* . */ 
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*  Written  by:  Bradley  H.  Taber  l!I 

*  For:  U.S.  Anay  Materials  Tachfwlogy  Laboratory 

*  Materials  Tasting  and  Evaluation  Branch 

*  Date:  6  April  1992 

*  Test  prograa  for  GPIB  data  acquisition  aodulaa 


iincluda  <conio.h> 

Bincluda  <dos.h> 
iincluda  <fstraaa.h> 

iincluda  ■gpib.h* 

Bincluda  ••tek2430a.h« 
iincluda  "display. h" 

//Bdafina  ofil  cout  //output  to  screen 

ofatraaai  of i l("gpifaaMin.out");  //output  to  file 

■ainO 

< 

clrscrO; 

//Initialization 

gpib  gpibKOEF  IREQ,  OEF  DMA.  DEF  MAO.  OEF  CIC,  DEF  NOB, 

0EF_BA0.  0EF_BA1,  OEF.ROM.AOOR); 
ofil  <<  "init_gpib<)  flag  ■  "  «  gpib1.init_gpib()  «  *\n'; 

tak2430A  scopafgpibl.  15); 

ofil  «  "tak_init()  flag  »  "  «  scope. tak_init()  «  '\n'; 

cout  «  "\nSet  up  scope  and  hit  any  key  to  continue\n\n"; 
getehO; 


/• 


Tektronix  Workout 


V 


//Cosaiands 

ofil  «  "ball  flag  ■  "  «  scope. tak_cowsnd("BELL\0")  «  '\n*; 
ofil  «  "Message  flag  1  ■  " 

«  acopa.tak  coaaiandf "MESSAGE  4:  \"THIS  IS  LINE  4\"\0")  «  'Vn'; 
ofil  «  "Massage  flag  2  ■  " 

«  scope. tak_coMMand< "MESSAGE  14:  \"THIS  IS  LIME  14\"\0")  «  'Xn'; 
//Queries 

ofil  «  "double  vMin  «  "  «  scopa.f  tak  query("VMINIMUM7\0")  «  '\n'; 
ofil  «  "double  vmsx  ■  "  «  scope. Oak_quary("VMAXIMUM7\0")  «  'Vn'; 
ofil  «  "double  volts/div  ■  "  «  scopa,f_tak_quary("CH17  VOLTSNO")  «  '\n' 

ofil  «  "int  Min  •  "  «  scope. i_tafc_quary("MINIMUM7\0")  «  '\n'; 
ofil  «  "int  Max  ■  "  «  scopa.Oofc~quary("MAXIMUM7\0")  «  '\n'; 
ofil  «  "int  start  ■  "  «  seopa7i_tak_quary("START7\0")  «  '\n'; 
ofil  «  "int  stop  ■  "  «  scope. i_tak_quary("ST0P7\0")  «  '\n'; 

ofil  «  "string  MsiniouM  ■  "  «  scopa.s_tok_quary("VNINIMUH7\0")  «  '\n*; 
ofil  «  "string  vMoxiMun  ■  "  «  scopa.s^tek^quaryCVMAXIMUMfVO")  «  '\n'; 
ofil  «  "string  volts  ■  "  «  scopa.s_tak_quary("CH17\0")  «  '\n'; 
ofil  «  "string  id  ■  "  «  scope. s_tak_quary("ID7\0")  «  '\n'; 

//Data  Acquisition 

int  "incurve  ■  new  intCMAX_PTSJ; 

scope. captura_curva(MAX_PTS,  incurve,  1); 

float  *f_eurva  ■  new  float  C^^^TSJ; 

scopa.convart_to_volts(MAX_PTs7  f_curva,  i_curve); 

dalate  i_ct^va; 
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//Graphical  Output  to  Scroan 

cout  «  "\nHit  any  kay  to  diaplay  graphaVn"; 

gatchO; 

int  nua_pta  >  1024; 

Int  T_NV  ■  40; 

diaplay_curva(nua_pta,  f_curva,  V.MiP); 
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in{t,K<b()  flag  ■  0 

tak  TMt()  flag  >  0 

ball  flag  -  0 

■aaaaga  flag  1  >  0 

■aaaaga  flag  2*0 

chwbla  ««in  ■  -1.8 

doubla  vMx  >1.88 

doubla  volta/div  ■  1 

fnt  ain  ■  -45 

int  aax  ■  49 

Int  atart  >  1 

int  atop  >  1024 

string  Msiniaua  >  -1.800 

string  vaaxiaun  >  1.800 

string  volts  >  1,0,0,AC,OFF,OFF 

string  id  >  TEK/2430A,V81.1, >21 -SEP-87  VI .90  /1.4> 
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